home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Visual Database / Visual BASIC 5.0 (Ent. Edition) / Vb5ent Extractor.EXE / VB / SAMPLES / ENTRPRIS / APE / AELOGGER / FRMLOGGR.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-12-06  |  2.0 KB  |  62 lines

  1. VERSION 5.00
  2. Begin VB.Form frmLogger 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Logger"
  5.    ClientHeight    =   2100
  6.    ClientLeft      =   1380
  7.    ClientTop       =   1980
  8.    ClientWidth     =   4200
  9.    ClipControls    =   0   'False
  10.    Icon            =   "frmloggr.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    ScaleHeight     =   2100
  14.    ScaleWidth      =   4200
  15.    StartUpPosition =   3  'Windows Default
  16.    Begin VB.Label lblStatus 
  17.       BackStyle       =   0  'Transparent
  18.       BeginProperty Font 
  19.          Name            =   "MS Sans Serif"
  20.          Size            =   9.75
  21.          Charset         =   0
  22.          Weight          =   400
  23.          Underline       =   0   'False
  24.          Italic          =   0   'False
  25.          Strikethrough   =   0   'False
  26.       EndProperty
  27.       Height          =   255
  28.       Left            =   240
  29.       TabIndex        =   0
  30.       Top             =   1710
  31.       Width           =   3915
  32.    End
  33. Attribute VB_Name = "frmLogger"
  34. Attribute VB_GlobalNameSpace = False
  35. Attribute VB_Creatable = False
  36. Attribute VB_PredeclaredId = True
  37. Attribute VB_Exposed = False
  38. Private Sub Form_Load()
  39.     'Use clsPositionForm object to move
  40.     'Form to settings saved in registry
  41.     Dim oPosition As clsPositionForm
  42.     Set oPosition = New clsPositionForm
  43.     oPosition.Move Me, False
  44.     Width = giDEFAULT_FORM_WIDTH
  45.     Height = giDEFAULT_FORM_HEIGHT
  46.     'Set Form Caption
  47.     ApplyFontToForm Me, giFONT_NAME_INDEX, giFONT_SIZE_INDEX, giFONT_CHARSET_INDEX
  48.     Caption = LoadResString(giFORM_CAPTION)
  49. End Sub
  50. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  51.     'Don't unload unless called from code.
  52.     If UnloadMode = vbFormControlMenu Then Cancel = False
  53. End Sub
  54. Private Sub Form_Unload(Cancel As Integer)
  55.     'Use clsPositionForm object to save
  56.     'forms position in registry
  57.     Dim oPosition As clsPositionForm
  58.     Set oPosition = New clsPositionForm
  59.     oPosition.Save Me
  60.     gbShowForm = False
  61. End Sub
  62.